home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / editor / auror300.zip / DESKOPEN.AML < prev    next >
Text File  |  1996-07-17  |  920b  |  32 lines
  1. //--------------------------------------------------------------------
  2. // DESKOPEN.AML
  3. // Open Desktop, (C) 1993-1996 by nuText Systems
  4. //
  5. // (see Deskopen.dox for user help)
  6. //
  7. // This macro opens and restores a desktop layout saved previously with
  8. // the Desksave macro. If the filename is not passed as arg 3, then the
  9. // user is prompted to enter the filename of the desktop layout.
  10. //
  11. // Usage:
  12. //
  13. // Select this macro from the Macro List (on the Macro menu), or run it
  14. // from the macro picklist <shift f12>.
  15. //--------------------------------------------------------------------
  16.  
  17. // compile time macros and function definitions
  18. include bootpath "define.aml"
  19.  
  20. file = arg 3
  21. if not file
  22.   file = ask "Restore desktop from file" "_load"
  23. end
  24.  
  25. if file then
  26.   if opendesk (qualify (defext file "dst") (getbufname)) then
  27.     restoredesk 'c'
  28.   else
  29.     msgbox "Can't open " + file
  30.   end
  31. end
  32.